home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / wordapi / test.inc < prev    next >
Encoding:
Text File  |  1995-12-22  |  2.4 KB  |  100 lines
  1. { include file for WLLTEST and EXETEST }
  2.  
  3. (****************************************************************************
  4.                             sample functions
  5.  ****************************************************************************)
  6. FUNCTION WInsert(txt : PChar) : Boolean;
  7. { example of a non-dialog command }
  8. VAR
  9.   wcmd : TWordCommand;
  10. BEGIN
  11.   wcmd.Init(wdInsert, T_NONE, NIL, 0);
  12.   wcmd.AddStringParam(txt);
  13.   WInsert := wcmd.ExecuteCommand;
  14.   wcmd.Done;
  15. END;
  16.  
  17.  
  18. FUNCTION WEditGoTo(dest : PChar) : Boolean;
  19. { example of a dialog command }
  20. VAR
  21.   wcmd : TWordDlgCommand;
  22. BEGIN
  23.   wcmd.Init(wdEditGoTo, T_NONE, NIL, 0, CMD_ACTION, [DLG_SET_DATA]);
  24.  
  25.   { be sure to use Add***DlgField() for dialog commands! }
  26.   wcmd.AddStringDlgField(fidDestination, dest, StrLen(dest)+1);
  27.   WEditGoTo := wcmd.ExecuteCommand;
  28.   wcmd.Done;
  29. END;
  30.  
  31.  
  32. FUNCTION WGetAuthor(dest : PChar; maxSize : Word) : Boolean;
  33. { example of a dialog query }
  34. VAR
  35.   wcmd : TWordDlgCommand;
  36. BEGIN
  37.   wcmd.Init(wdFileSummaryInfo, T_NONE, NIL, 0, CMD_DEFAULTS, [DLG_GET_DATA]);
  38.   { it's NOT a function! result is returned in fidAuthor.dest }
  39.   wcmd.AddStringDlgField(fidAuthor, dest, maxSize);
  40.   WGetAuthor := wcmd.ExecuteCommand;
  41.   wcmd.Done;
  42. END;
  43.  
  44.  
  45. FUNCTION WSelection(st : PChar; maxSize : Word) : Boolean;
  46. { example of a function returning a string }
  47. VAR
  48.   wcmd : TWordCommand;
  49. BEGIN
  50.   wcmd.Init(wdSelectionStr, T_STRING, st, maxSize);
  51.   WSelection := wcmd.ExecuteCommand;
  52.   wcmd.Done;
  53. END;
  54.  
  55.  
  56. FUNCTION WInt(n : Double; VAR rslt : Integer) : Boolean;
  57. { example of a function returning an Integer }
  58. VAR
  59.   wcmd : TWordCommand;
  60.   p : PChar;
  61. BEGIN
  62.   wcmd.Init(wdInt, T_SHORT, @rslt, SizeOf(rslt));
  63.   wcmd.AddDoubleParam(n);
  64.   WInt := wcmd.ExecuteCommand;
  65.   wcmd.Done;
  66. END;
  67.  
  68.  
  69. PROCEDURE Test1;
  70. VAR
  71.   strBuf : Array[0..100] OF Char;
  72.   int : Integer;
  73. BEGIN
  74.   { get Selection$() }
  75.   IF NOT WSelection(strBuf, SizeOf(strBuf)) THEN
  76.     Exit;
  77.   MessageBox(0, strBuf, 'Selection', MB_OK);
  78.  
  79.   IF NOT WGetAuthor(strBuf, SizeOf(strBuf)) THEN
  80.     Exit;
  81.   MessageBox(0, strBuf, 'Author', MB_OK);
  82.  
  83.   { Insert "Test" }
  84.   IF NOT WInsert(strBuf) THEN
  85.     Exit;
  86.  
  87.   { EditGoto .dest="\StartOfDoc" }
  88.   IF NOT WEditGoTo('\StartOfDoc') THEN
  89.     Exit;
  90.  
  91.   IF (WInt(123.4567, int)) THEN BEGIN
  92.     Str(int, strBuf);
  93.     MessageBox(0, strBuf, 'Int() result', MB_OK);
  94.   END ELSE
  95.     Exit;
  96. END;
  97.  
  98. {EOF}
  99.  
  100.